﻿Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Text
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls

Namespace DotNetNuke.Modules.ActiveForums.Controls
    <DefaultProperty("message"), ToolboxData("<{0}:InfoMessage runat=server></{0}:InfoMessage>")> _
    Public Class InfoMessage
        Inherits CompositeControl
#Region "Private Members"
        Private _message As String
        Private _header As String
        Private _returnUrl As String
#End Region
#Region "Public Properties"
        Public Property Message() As String
            Get
                Return _message
            End Get
            Set(ByVal value As String)
                _message = value
            End Set
        End Property
        Public Property Header() As String
            Get
                Return _header
            End Get
            Set(ByVal value As String)
                _header = value
            End Set
        End Property
        Public Property ReturnUrl() As String
            Get
                Return _returnUrl
            End Get
            Set(ByVal value As String)
                _returnUrl = value
            End Set
        End Property
#End Region
#Region "Protected Methods"
        Protected Overrides Sub RenderContents(ByVal writer As HtmlTextWriter)
            writer.Write(Message)
        End Sub
#End Region
    End Class
End Namespace
